home *** CD-ROM | disk | FTP | other *** search
- object ViewLogForm: TViewLogForm
- Left = 229
- Top = 127
- HorzScrollBar.Visible = False
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'History Log'
- ClientHeight = 376
- ClientWidth = 522
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 335
- Width = 522
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object FlushButton: TBitBtn
- Left = 6
- Top = 6
- Width = 99
- Height = 31
- Caption = 'Clear &Log File'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = FlushButtonClick
- NumGlyphs = 2
- end
- object CloseButton: TBitBtn
- Left = 446
- Top = 6
- Width = 67
- Height = 31
- Caption = '&Close'
- Default = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = CloseButtonClick
- NumGlyphs = 2
- end
- object btnUser: TBitBtn
- Left = 112
- Top = 6
- Width = 81
- Height = 31
- Caption = 'Sort by &User'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnUserClick
- end
- object btnSite: TBitBtn
- Left = 198
- Top = 6
- Width = 75
- Height = 31
- Caption = 'Sort by &Site'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = btnSiteClick
- end
- object btnDateTime: TBitBtn
- Left = 278
- Top = 6
- Width = 83
- Height = 31
- Caption = 'Sort by &Date'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnDateTimeClick
- end
- object btnExport: TBitBtn
- Left = 367
- Top = 6
- Width = 73
- Height = 31
- Caption = '&Text Export...'
- TabOrder = 4
- OnClick = btnExportClick
- end
- end
- object pagecontrolLog: TPageControl
- Left = 8
- Top = 8
- Width = 505
- Height = 337
- ActivePage = tabsheetLog
- TabOrder = 1
- object tabsheetLog: TTabSheet
- Caption = 'Log History'
- object LogGrid: TDBGrid
- Left = 0
- Top = 0
- Width = 497
- Height = 309
- Align = alClient
- DataSource = Form1.LogSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDblClick = LogGridDblClick
- Columns = <
- item
- ButtonStyle = cbsEllipsis
- Expanded = False
- FieldName = 'USERNAME'
- Title.Caption = 'User'
- Title.Font.Charset = DEFAULT_CHARSET
- Title.Font.Color = clWindowText
- Title.Font.Height = -13
- Title.Font.Name = 'MS Sans Serif'
- Title.Font.Style = [fsBold]
- Width = 56
- Visible = True
- end
- item
- ButtonStyle = cbsEllipsis
- Expanded = False
- FieldName = 'SITE'
- Title.Caption = 'Web Site'
- Title.Font.Charset = DEFAULT_CHARSET
- Title.Font.Color = clWindowText
- Title.Font.Height = -13
- Title.Font.Name = 'MS Sans Serif'
- Title.Font.Style = [fsBold]
- Width = 194
- Visible = True
- end
- item
- ButtonStyle = cbsEllipsis
- Expanded = False
- FieldName = 'DATETIME'
- Title.Font.Charset = DEFAULT_CHARSET
- Title.Font.Color = clWindowText
- Title.Font.Height = -11
- Title.Font.Name = 'MS Sans Serif'
- Title.Font.Style = [fsBold]
- Width = 137
- Visible = True
- end
- item
- ButtonStyle = cbsEllipsis
- Expanded = False
- FieldName = 'BLOCKED'
- Title.Font.Charset = DEFAULT_CHARSET
- Title.Font.Color = clWindowText
- Title.Font.Height = -11
- Title.Font.Name = 'MS Sans Serif'
- Title.Font.Style = [fsBold]
- Width = 75
- Visible = True
- end>
- end
- end
- end
- object SaveDialog: TSaveDialog
- Left = 136
- Top = 192
- end
- end
-